home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / winterp-1.13 / src-server / wc_WIDGET.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-10-04  |  20.7 KB  |  538 lines
  1. /* -*-C-*-
  2. ********************************************************************************
  3. *
  4. * File:         wc_WIDGET.c
  5. * RCS:          $Header: wc_WIDGET.c,v 1.5 91/03/14 03:15:27 mayer Exp $
  6. * Description:  WIDGET_CLASS (the widget metaclass)
  7. * Author:       Niels Mayer, HPLabs
  8. * Created:      Tue Nov 21 00:55:07 1989
  9. * Modified:     Thu Oct  3 22:48:58 1991 (Niels Mayer) mayer@hplnpm
  10. * Language:     C
  11. * Package:      N/A
  12. * Status:       X11r5 contrib tape release
  13. *
  14. * WINTERP Copyright 1989, 1990, 1991 Hewlett-Packard Company (by Niels Mayer).
  15. * XLISP version 2.1, Copyright (c) 1989, by David Betz.
  16. *
  17. * Permission to use, copy, modify, distribute, and sell this software and its
  18. * documentation for any purpose is hereby granted without fee, provided that
  19. * the above copyright notice appear in all copies and that both that
  20. * copyright notice and this permission notice appear in supporting
  21. * documentation, and that the name of Hewlett-Packard and David Betz not be
  22. * used in advertising or publicity pertaining to distribution of the software
  23. * without specific, written prior permission.  Hewlett-Packard and David Betz
  24. * make no representations about the suitability of this software for any
  25. * purpose. It is provided "as is" without express or implied warranty.
  26. *
  27. * HEWLETT-PACKARD AND DAVID BETZ DISCLAIM ALL WARRANTIES WITH REGARD TO THIS
  28. * SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS,
  29. * IN NO EVENT SHALL HEWLETT-PACKARD NOR DAVID BETZ BE LIABLE FOR ANY SPECIAL,
  30. * INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
  31. * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
  32. * OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  33. * PERFORMANCE OF THIS SOFTWARE.
  34. *
  35. * See ./winterp/COPYRIGHT for information on contacting the authors.
  36. * 
  37. * Please send modifications, improvements and bugfixes to mayer@hplabs.hp.com
  38. * Post XLISP-specific questions/information to the newsgroup comp.lang.lisp.x
  39. *
  40. ********************************************************************************
  41. */
  42. static char rcs_identity[] = "@(#)$Header: wc_WIDGET.c,v 1.5 91/03/14 03:15:27 mayer Exp $";
  43.  
  44. #include <stdio.h>
  45. #include <Xm/Xm.h>
  46. #include "winterp.h"
  47. #include "user_prefs.h"
  48. #include "xlisp/xlisp.h"
  49. #include "w_funtab.h"
  50.  
  51. extern Widget Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(); /* w_classes.c */
  52.  
  53. LVAL o_WIDGET_CLASS;        /* note -- this is used in w_classes.c */
  54. LVAL k_managed;
  55. LVAL k_unmanaged;
  56. LVAL k_dialog;
  57. LVAL k_scrolled;
  58.  
  59. /*
  60.  * Note -- various methods on WIDGET_CLASS are implemented in:
  61.  * w_libXt.c -- interfaces to Xtoolkit intrinsics.
  62.  * w_libXm.c -- interfaces to Motif toolkit.
  63.  * w_evnthndlr.c -- interfaces to event handling routines
  64.  */
  65.  
  66.  
  67. /******************************************************************************
  68.  * typedef struct
  69.  * {
  70.  *     int     reason;
  71.  *     XEvent  *event;
  72.  * } XmAnyCallbackStruct;
  73.  ******************************************************************************/
  74. static void Lexical_Bindings_For_XmAnyCallbackStruct(bindings_list, lexical_env, cd, o_widget)
  75.      LVAL bindings_list;    /* a list of symbols to which values from XmAnyCallbackStruct are bound */
  76.      LVAL lexical_env;        
  77.      XmAnyCallbackStruct* cd;
  78.      LVAL o_widget;        /* XLTYPE_WIDGETOBJ */
  79. {
  80.   extern LVAL s_CALLBACK_WIDGET, s_CALLBACK_REASON, s_CALLBACK_XEVENT; /* w_callbacks.c */
  81.   extern LVAL Wcb_Get_Callback_Reason_Symbol();    /* w_callbacks.c */
  82.   register LVAL s_bindname;
  83.  
  84.   for ( ; consp(bindings_list); bindings_list = cdr(bindings_list)) {
  85.  
  86.     s_bindname = car(bindings_list);
  87.  
  88.     if (s_bindname == s_CALLBACK_WIDGET) {
  89.       xlpbind(s_bindname, o_widget, lexical_env);
  90.     }
  91.     else if (s_bindname == s_CALLBACK_REASON) {
  92.       xlpbind(s_bindname, Wcb_Get_Callback_Reason_Symbol(cd->reason), lexical_env);
  93.     }
  94.     else if (s_bindname == s_CALLBACK_XEVENT) {
  95.       xlpbind(s_bindname, (cd->event) ? cv_xevent(cd->event) : NIL, lexical_env);
  96.     }
  97.     else {
  98.       extern char temptext[];    /* from winterp.c */
  99.       sprintf(temptext,
  100.           "Unknown binding name in XmAnyCallbackStruct callback evaluator. Valid symbols are [%s %s %s].",
  101.           (char*) getstring(getpname(s_CALLBACK_WIDGET)),
  102.           (char*) getstring(getpname(s_CALLBACK_REASON)),
  103.           (char*) getstring(getpname(s_CALLBACK_XEVENT)));
  104.       xlerror(temptext, s_bindname);
  105.     }
  106.   }
  107. }
  108.  
  109.  
  110. /******************************************************************************
  111.  * This is called indirectly via XtAddCallback() for callbacks returning
  112.  * an XmAnyCallbackStruct as call_data.
  113.  ******************************************************************************/
  114. static void XmAnyCallbackStruct_Callbackproc(widget, client_data, call_data)
  115.      Widget    widget;
  116.      XtPointer client_data;
  117.      XtPointer call_data;
  118. {
  119.   extern void Wcb_Meta_Callbackproc();    /* w_callbacks.c */
  120.  
  121.   Wcb_Meta_Callbackproc(client_data, call_data,
  122.             Lexical_Bindings_For_XmAnyCallbackStruct,
  123.             NULL);
  124. }
  125.  
  126.  
  127. /*****************************************************************************
  128.  * (send <widget_instance> :add_callback <name>
  129.  *       <call_data_binding_names_list>
  130.  *       <code>)
  131.  * returns: <callback_id_object>
  132.  *
  133.  * <name> is a resource keyword of type XmRCallback, eg,
  134.  * :XMN_ACTIVATE_CALLBACK, :XMN_ARM_CALLBACK, :XMN_DISARM_CALLBACK.
  135.  *
  136.  * <call_data_binding_name_list> is a list of symbols that get
  137.  * bound to data specific to the action on the callback widget. For 
  138.  * the XmAnyCallbackStruct passed as call data here, the only valid symbol
  139.  * names are CALLBACK_WIDGET CALLBACK_REASON CALLBACK_XEVENT.
  140.  * 
  141.  * <code> is a list of lisp expressions that are evaluated when the callback
  142.  * occurs. During the callback, the lexical environment that existed for
  143.  * the call to :add_callback will be used for value and functional bindings.
  144.  * 
  145.  * The returned <callback_id_object> may be passed into the 
  146.  * function (remove_callback <callback_id_object>).
  147.  ****************************************************************************/
  148. LVAL Widget_Class_Method_ADD_CALLBACK()
  149. {
  150.   extern LVAL Wcb_Meta_Method_Add_Callback(); /* w_callbacks.c */
  151.  
  152.   return (Wcb_Meta_Method_Add_Callback(XmAnyCallbackStruct_Callbackproc, FALSE));
  153. }
  154.  
  155.  
  156. /*****************************************************************************
  157.  * (send <widget_instance> :set_callback <name>
  158.  *       <call_data_binding_names_list>
  159.  *       <code>)
  160.  * returns: <callback_id_object>
  161.  *
  162.  * This does exactly what method :add_callback does, except that it ensures
  163.  * that the callback currently being set is the only callback on <widget_instance>
  164.  * for <name>.
  165.  *
  166.  * This method is best used for interactively changing callbacks on a widget.
  167.  * It is slightly less efficient than method :add_callback because it must
  168.  * search-for and remove other callbacks on <widget> with the same <name>.
  169.  ****************************************************************************/
  170. LVAL Widget_Class_Method_SET_CALLBACK()
  171. {
  172.   extern LVAL Wcb_Meta_Method_Add_Callback(); /* w_callbacks.c */
  173.  
  174.   return (Wcb_Meta_Method_Add_Callback(XmAnyCallbackStruct_Callbackproc, TRUE));
  175. }
  176.  
  177.  
  178. /*****************************************************************************
  179.  * (send <Widget_Class> :new [:managed/:unmanaged]
  180.  *                           [<name>]
  181.  *                           <parent> 
  182.  *                           [:XMN_<arg1> <val1>]
  183.  *                           [. . .             ]
  184.  *                           [:XMN_<argN> <valN>])
  185.  *
  186.  * For the <widget_class> meta-class (the parent class of all widget-objects), 
  187.  * create a new widget via XtCreateWidget().
  188.  *
  189.  * The optional keyword-argument :managed will cause a subsequent call to
  190.  * XtManageChild(). If the submessage :unmanaged is present, or no submessage,
  191.  * then XtManageChild() won't be called, and the resulting widget will be
  192.  * returned unmanaged.
  193.  ****************************************************************************/
  194. LVAL Widget_Class_Method_ISNEW()
  195. {
  196.   extern void Wcls_Initialize_WIDGETOBJ();
  197.   extern WidgetClass Wcls_WIDGETCLASSOBJ_To_WidgetClassID();
  198.   extern ArgList Wres_Get_LispArglist(); /* from w_resources.c */
  199.   extern void    Wres_Free_C_Arglist_Data(); /* from w_resources.c */
  200.   LVAL self, o_parent;
  201.   char* name;
  202.   Boolean managed_p;
  203.   WidgetClass widgetclass_id;
  204.   Widget widget_id, parent_widget_id;
  205.  
  206.   self = xlgaobject();        /* NOTE: xlobj.c:clnew() returns an OBJECT; if this method
  207.                    returns successfully, it will return a WIDGETOBJ */
  208.  
  209.   /* get optional managed/unmanaged arg */
  210.   if (moreargs() && ((*xlargv == k_managed) || (*xlargv == k_unmanaged)))
  211.     managed_p = (nextarg() == k_managed);
  212.   else
  213.     managed_p = FALSE;        /* by default don't call XtManageChild() */
  214.  
  215.   /* get optional <name> arg */
  216.   if (moreargs() && (stringp(*xlargv)))
  217.     name = (char*) getstring(nextarg());
  218.   else
  219.     name = "";            /* default name */
  220.  
  221.   /* get required <parent> widget-object arg */
  222.   parent_widget_id = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&o_parent);
  223.  
  224.   if (!(widgetclass_id = Wcls_WIDGETCLASSOBJ_To_WidgetClassID(getclass(self))))
  225.     xlerror("Expected a 'Class' object that is a subclass of 'WIDGET_CLASS'.", self);
  226.  
  227.   /*
  228.    * Store the widget object <self> in the XmNuserData resource on the
  229.    * widget. This will allow us to retrieve the widget object from Xtoolkit
  230.    * functions returning widget ID's without having to keep around a table
  231.    * of widgetID-->widget-objects.
  232.    */
  233.    ARGLIST_RESET(); ARGLIST_ADD(XmNuserData, (XtArgVal) self); 
  234.  
  235.   if (moreargs()) {        /* if there are more arguments, */
  236.     Cardinal xt_numargs;    /* then we have some extra widget resources to set */
  237.     ArgList xt_arglist = Wres_Get_LispArglist(self, parent_widget_id, ARGLIST(), &xt_numargs);
  238.     widget_id = XtCreateWidget(name, widgetclass_id, parent_widget_id, xt_arglist, xt_numargs);
  239.     Wres_Free_C_Arglist_Data();
  240.   }
  241.   else
  242.     widget_id = XtCreateWidget(name, widgetclass_id, parent_widget_id, ARGLIST());
  243.  
  244.   Wcls_Initialize_WIDGETOBJ(self, widget_id);
  245.  
  246.   if (managed_p)
  247.     XtManageChild(widget_id);
  248.  
  249. #ifdef DEBUG_WINTERP_1
  250.   Wcls_Print_WidgetObj_Info(self);
  251. #endif
  252.   return (self);
  253. }
  254.  
  255.  
  256. #ifdef WINTERP_MOTIF_11
  257. /******************************************************************************
  258.  * (send <compositewidget> :GET_CHILDREN)
  259.  *     ==> returns an array of WIDGETOBJs
  260.  *
  261.  * This retrieves the composite resources XmNitems and XmNitemCount
  262.  * from <listwidget> and returns an array of XmStrings
  263.  * representing the items in the list.
  264.  *******************************************************************************/
  265. LVAL Widget_Class_Method_GET_CHILDREN()
  266. {
  267.   extern LVAL Wcls_WidgetID_To_WIDGETOBJ(); /* w_classes.c */
  268.   LVAL self, result;
  269.   Widget widget_id;
  270.   Widget* widgettab = NULL;
  271.   Cardinal widgettab_size = 0;
  272.   int i;
  273.  
  274.   widget_id = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  275.   xllastarg();
  276.  
  277.   if (!XtIsComposite(widget_id))
  278.     xlerror("Method :GET_CHILDREN only applies to widgets that are subclasses of \"Composite\".", self);
  279.   
  280.   ARGLIST_RESET();
  281.   ARGLIST_ADD(XmNchildren, &widgettab);
  282.   ARGLIST_ADD(XmNnumChildren, &widgettab_size);
  283.   XtGetValues(widget_id, ARGLIST());
  284.  
  285.   if (!widgettab || !widgettab_size)
  286.     return (NIL);
  287.  
  288.   xlsave1(result);
  289.   result = newvector(widgettab_size);
  290.   for (i = 0; i < widgettab_size; i++)
  291.     setelement(result, i, Wcls_WidgetID_To_WIDGETOBJ(widgettab[i]));
  292.   xlpop();
  293.   return (result);
  294. }
  295. #endif /* WINTERP_MOTIF_11 */
  296.  
  297.  
  298. /******************************************************************************
  299.  * (send <widget> :EXISTS_P)
  300.  *     ==> returns T if the widget exists (hasn't been destroyed)
  301.  *    ==> returns NIL if the widget has been destroyed
  302.  *        or has never been initialized.
  303.  *******************************************************************************/
  304. LVAL Widget_Class_Method_EXISTS_P()
  305. {
  306.   extern LVAL true;
  307.   LVAL self = xlga_widgetobj();
  308.   xllastarg();
  309.  
  310.   if (get_widgetobj_widgetID(self))
  311.     return (true);
  312.   else
  313.     return (NIL);
  314. }
  315.  
  316.  
  317. /*****************************************************************************
  318.  * Initialize the Xtoolkit interface. Note that this procedure does
  319.  * equivelent kinds of setup as done by xloinit(). The following call 
  320.  * sequence happens on startup:
  321.  * [xlsymbols(), xloinit()] <-- initwks() <-- xlinit() <-- main()...
  322.  * However, note that main() calls xlinit() only if xlirestore("xlisp.wks") 
  323.  * fails. In that case, we get the calling sequence:
  324.  * obsymbols() <-- xlsymbols() <-- xlirestore() <-- main(). We could patch
  325.  * in the symbols initialized in this module by putting initialization 
  326.  * routines in ossymbols(), but it's not clear that this would make sense:
  327.  * restore will only be able to restore widget objects' data, but will not
  328.  * be able to recreate widgets themselves.
  329.  *
  330.  * Thus, we call this procedure after xlinit() in main() and this reinitializes
  331.  * the widget objects independent of restoring. Of course, any widget objects
  332.  * that were saved/restored may now not have a valid class, since the 
  333.  * pointers may have changed ...
  334.  ****************************************************************************/
  335. Wc_WIDGET_Init()
  336. {
  337.   extern LVAL xlclass();    /* from xlobj.c */
  338.   extern      xladdivar();    /* from xlobj.c */
  339.   extern      xladdmsg();    /* from xlobj.c */
  340.  
  341.   k_managed            = xlenter(":MANAGED");
  342.   k_unmanaged          = xlenter(":UNMANAGED");
  343.   k_dialog             = xlenter(":DIALOG"); /* used by various :isnew methods */
  344.   k_scrolled           = xlenter(":SCROLLED"); /* used by various :isnew methods */
  345.  
  346.   /* 
  347.    * create 'WIDGET_CLASS' by doing the (almost) equivalent of 
  348.    * (setq Widget_Class (send Class :new 
  349.    *                           '(widget_id)
  350.    *                             object))
  351.    * Creating a new 'Class' instance would end up calling clnew() to create
  352.    * a new instance of 'Class', and then call clisnew() on that 'Class'
  353.    * instance to set the appropriate slots for 'WIDGET_CLASS'. Thus we need to
  354.    * create object 'WIDGET_CLASS', and with that object, set
  355.    *    self.MESSAGES = (:SET_CALLBACK :GET_VALUES :SET_VALUES ...)
  356.    *    self.IVARS = (WIDGET_ID SETVALUES_ALIST)
  357.    *    self.CVARS = NIL
  358.    *    self.CVALS = NIL
  359.    *    self.SUPERCLASS = 'Object'
  360.    *    self.IVARCNT = WIDGETOBJ_SIZE     ;; == length(self.IVARS)
  361.    *    self.IVARTOTAL = WIDGETOBJ_SIZE   ;; == self.IVARCNT + length(superclass.IVARS)
  362.    *
  363.    * 'WIDGET_CLASS' contains methods corresponding to common operations on
  364.    * 'Widget' in the Xtoolkit. The :isnew method in 'Widget_Class' is the
  365.    * default means to create a new widget in this system -- this method will
  366.    * look up the WidgetClass pointer from class(self).CVALS[0]. Note that 
  367.    * 'WIDGET_CLASS' is a core class. Widget instances should be created
  368.    * from classes inheriting from 'Widget_Class' The message :isnew will 
  369.    * complain if you try to instantiate 'WIDGET_CLASS' since 
  370.    * class(self).CVALS == NIL for that class only.
  371.    *
  372.    * Specific widget classes, corresponding to a instantiatable widget objects
  373.    * in Motif, are created by doing, for example
  374.    * (setq PUSHBUTTON_CLASS (send Class :new
  375.    *                              '()                 ;; no new IVARS
  376.    *                              '(WIDGET_CLASS_ID   ;; value==xmPushButtonWidgetClass
  377.    *                                WIDGET_CLASS_SYM  ;; value==PUSHBUTTON_CLASS
  378.    *                              Widget_Class)       ;; superclass
  379.    * where WIDGET_CLASS_ID is associated with the WidgetClass pointer
  380.    * designating the class of the widget for the Xtoolkit creation 
  381.    * functions.
  382.    */
  383.  
  384.   /*--------------- create 'Class' instance 'WIDGET_CLASS' -----------------*/
  385.   /* Calling xlclass() creates the 'Class' instance called 'WIDGET_CLASS' and 
  386.      sets IVARCNT, IVARTOTAL, and SUPERCLASS slots
  387.      slots CVARS, CVALS are set to NIL */
  388.   o_WIDGET_CLASS = xlclass("WIDGET_CLASS", WIDGETOBJ_SIZE); 
  389.  
  390.   /* set up the list of ivarnames in IVARS */
  391.   xladdivar(o_WIDGET_CLASS, " _bogus_ivar_ "); /* this "variable name" corresponds to the WIDGETID slot on a WIDGETOBJ 
  392.                                -- users shouldn't access this var, since it isn't an LVAL (hack). */
  393.  
  394.   /* set up the list of methods in MESSAGES, and bind the associated FSUBR */
  395.  
  396. #ifdef THE_FOLLOWING_CODE_IS_COMMENTED_OUT /* template for adding new methods */
  397.   xladdmsg(o_WIDGET_CLASS, ":",
  398.        FTAB_Widget_Class_Method_); /*  */
  399. #endif
  400.  
  401. #ifdef WINTERP_MOTIF_11
  402.   xladdmsg(o_WIDGET_CLASS, ":PROCESS_TRAVERSAL",
  403.        FTAB_Widget_Class_Method_PROCESS_TRAVERSAL); /* w_libXm.c */
  404. #endif /* WINTERP_MOTIF_11 */
  405.  
  406.   xladdmsg(o_WIDGET_CLASS, ":EXISTS_P",
  407.        FTAB_Widget_Class_Method_EXISTS_P); /* wc_WIDGET.c */
  408.  
  409. #ifdef WINTERP_MOTIF_11
  410.   xladdmsg(o_WIDGET_CLASS, ":GET_CHILDREN",
  411.        FTAB_Widget_Class_Method_GET_CHILDREN); /* wc_WIDGET.c */
  412. #endif /* WINTERP_MOTIF_11 */
  413.  
  414.   xladdmsg(o_WIDGET_CLASS, ":BUILD_EVENT_MASK",
  415.        FTAB_Widget_Class_Method_BUILD_EVENT_MASK); /* w_evnthndlr.c */
  416.  
  417.   xladdmsg(o_WIDGET_CLASS, ":OVERRIDE_TRANSLATIONS",
  418.        FTAB_Widget_Class_Method_OVERRIDE_TRANSLATIONS); /* w_txlations.c */
  419.  
  420.   xladdmsg(o_WIDGET_CLASS, ":AUGMENT_TRANSLATIONS",
  421.        FTAB_Widget_Class_Method_AUGMENT_TRANSLATIONS); /* w_txlations.c */
  422.  
  423.   xladdmsg(o_WIDGET_CLASS, ":UNINSTALL_TRANSLATIONS",
  424.        FTAB_Widget_Class_Method_UNINSTALL_TRANSLATIONS); /* w_txlations.c */
  425.  
  426.   xladdmsg(o_WIDGET_CLASS, ":INSTALL_ACCELERATORS",
  427.        FTAB_Widget_Class_Method_INSTALL_ACCELERATORS); /* w_txlations.c */
  428.  
  429.   xladdmsg(o_WIDGET_CLASS, ":INSTALL_ALL_ACCELERATORS",
  430.        FTAB_Widget_Class_Method_INSTALL_ALL_ACCELERATORS); /* w_txlations.c */
  431.  
  432. #ifdef WINTERP_MOTIF_11
  433.   xladdmsg(o_WIDGET_CLASS, ":CALL_ACTION_PROC",
  434.        FTAB_Widget_Class_Method_CALL_ACTION_PROC); /* w_txlations.c */
  435. #endif /* WINTERP_MOTIF_11 */
  436.  
  437.   xladdmsg(o_WIDGET_CLASS, ":REMOVE_ALL_CALLBACKS",
  438.        FTAB_Widget_Class_Method_REMOVE_ALL_CALLBACKS); /* w_callbacks.c */
  439.  
  440.   xladdmsg(o_WIDGET_CLASS, ":HAS_CALLBACKS",
  441.        FTAB_Widget_Class_Method_HAS_CALLBACKS); /* w_callbacks.c */
  442.  
  443.   xladdmsg(o_WIDGET_CLASS, ":ADD_TAB_GROUP",
  444.        FTAB_Widget_Class_Method_ADD_TAB_GROUP); /* w_libXm.c */
  445.  
  446.   xladdmsg(o_WIDGET_CLASS, ":REMOVE_TAB_GROUP",
  447.        FTAB_Widget_Class_Method_REMOVE_TAB_GROUP); /* w_libXm.c */
  448.  
  449.   xladdmsg(o_WIDGET_CLASS, ":UPDATE_DISPLAY", /* w_libXm.c */
  450.        FTAB_Widget_Class_Method_UPDATE_DISPLAY);
  451.  
  452.   xladdmsg(o_WIDGET_CLASS, ":ADD_GRAB",
  453.        FTAB_Widget_Class_Method_ADD_GRAB); /* w_libXt.c */
  454.  
  455.   xladdmsg(o_WIDGET_CLASS, ":REMOVE_GRAB",
  456.        FTAB_Widget_Class_Method_REMOVE_GRAB); /* w_libXt.c */
  457.  
  458.   xladdmsg(o_WIDGET_CLASS, ":IS_COMPOSITE",
  459.        FTAB_Widget_Class_Method_IS_COMPOSITE); /* w_libXt.c */
  460.  
  461.   xladdmsg(o_WIDGET_CLASS, ":IS_CONSTRAINT",
  462.        FTAB_Widget_Class_Method_IS_CONSTRAINT); /* w_libXt.c */
  463.  
  464.   xladdmsg(o_WIDGET_CLASS, ":IS_SHELL",
  465.        FTAB_Widget_Class_Method_IS_SHELL); /* w_libXt.c */
  466.  
  467.   xladdmsg(o_WIDGET_CLASS, ":IS_PRIMITIVE",
  468.        FTAB_Widget_Class_Method_IS_PRIMITIVE); /* w_libXm.c */
  469.  
  470.   xladdmsg(o_WIDGET_CLASS, ":IS_GADGET",
  471.        FTAB_Widget_Class_Method_IS_GADGET); /* w_libXm.c */
  472.  
  473.   xladdmsg(o_WIDGET_CLASS, ":IS_MANAGER",
  474.        FTAB_Widget_Class_Method_IS_MANAGER); /* w_libXm.c */
  475.  
  476.   xladdmsg(o_WIDGET_CLASS, ":SET_SENSITIVE",
  477.        FTAB_Widget_Class_Method_SET_SENSITIVE); /* w_libXt.c */
  478.  
  479.   xladdmsg(o_WIDGET_CLASS, ":SET_MAPPED_WHEN_MANAGED",
  480.        FTAB_Widget_Class_Method_SET_MAPPED_WHEN_MANAGED); /* w_libXt.c */
  481.  
  482.   xladdmsg(o_WIDGET_CLASS, ":IS_MANAGED",
  483.        FTAB_Widget_Class_Method_IS_MANAGED); /* w_libXt.c */
  484.  
  485.   xladdmsg(o_WIDGET_CLASS, ":IS_REALIZED",
  486.        FTAB_Widget_Class_Method_IS_REALIZED); /* w_libXt.c */
  487.  
  488.   xladdmsg(o_WIDGET_CLASS, ":IS_SENSITIVE",
  489.        FTAB_Widget_Class_Method_IS_SENSITIVE); /* w_libXt.c */
  490.  
  491. #ifdef WINTERP_MOTIF_11        /* actually, just X11r4, but Motif1.1-->X11r4 */
  492.   xladdmsg(o_WIDGET_CLASS, ":NAME",
  493.        FTAB_Widget_Class_Method_NAME); /* w_libXt.c */
  494. #endif /* WINTERP_MOTIF_11 */
  495.  
  496.   xladdmsg(o_WIDGET_CLASS, ":PARENT",
  497.        FTAB_Widget_Class_Method_PARENT); /* w_libXt.c */
  498.  
  499.   xladdmsg(o_WIDGET_CLASS, ":WINDOW",
  500.        FTAB_Widget_Class_Method_WINDOW); /* w_libXt.c */
  501.  
  502.   xladdmsg(o_WIDGET_CLASS, ":MAP",
  503.        FTAB_Widget_Class_Method_MAP); /* w_libXt.c */
  504.  
  505.   xladdmsg(o_WIDGET_CLASS, ":UNMAP",
  506.        FTAB_Widget_Class_Method_UNMAP); /* w_libXt.c */
  507.  
  508.   xladdmsg(o_WIDGET_CLASS, ":SET_EVENT_HANDLER",
  509.        FTAB_Widget_Class_Method_SET_EVENT_HANDLER);    /* w_evnthndlr.c */
  510.  
  511.   xladdmsg(o_WIDGET_CLASS, ":ADD_EVENT_HANDLER",
  512.        FTAB_Widget_Class_Method_ADD_EVENT_HANDLER);    /* w_evnthndlr.c */
  513.  
  514.   xladdmsg(o_WIDGET_CLASS, ":SET_CALLBACK",
  515.        FTAB_Widget_Class_Method_SET_CALLBACK);
  516.  
  517.   xladdmsg(o_WIDGET_CLASS, ":ADD_CALLBACK",
  518.        FTAB_Widget_Class_Method_ADD_CALLBACK);
  519.  
  520.   xladdmsg(o_WIDGET_CLASS, ":DESTROY", /* w_libXt.c */
  521.        FTAB_Widget_Class_Method_DESTROY);
  522.  
  523.   xladdmsg(o_WIDGET_CLASS, ":MANAGE", /* w_libXt.c */
  524.        FTAB_Widget_Class_Method_MANAGE);
  525.  
  526.   xladdmsg(o_WIDGET_CLASS, ":UNMANAGE",    /* w_libXt.c */
  527.        FTAB_Widget_Class_Method_UNMANAGE);
  528.  
  529.   xladdmsg(o_WIDGET_CLASS, ":GET_VALUES", /* w_libXt.c */
  530.        FTAB_Widget_Class_Method_GET_VALUES);    
  531.  
  532.   xladdmsg(o_WIDGET_CLASS, ":SET_VALUES", /* w_libXt.c */
  533.        FTAB_Widget_Class_Method_SET_VALUES);
  534.  
  535.   xladdmsg(o_WIDGET_CLASS, ":ISNEW",
  536.        FTAB_Widget_Class_Method_ISNEW);
  537. }
  538.